﻿Imports BUS
Imports DTO

Public Class frmthemchucvu

    Private Sub btnthem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthem.Click
        Dim sql As String = "Insert Into CHUCVU(TenChucVu) Values(" + "'" + txtchucvu.Text + "'" + ")"
        Dim bus As New ChucVuBUS()
        Dim kq As Integer = bus.ThemChucVu(sql)
        If kq = 1 Then
            MessageBox.Show("Thêm thành công !")
        Else
            MessageBox.Show("Thêm thất bại !")
        End If
    End Sub

    Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthoat.Click
        Me.Close()
    End Sub
End Class